home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Demos / AppMaker 2.0b3 / Demo AppMaker 1.5 / Demo AppMaker™ / Demo AppMaker™.rsrc / TmMM_101_Main < prev    next >
Encoding:
Text File  |  1992-04-08  |  931 b   |  50 lines
  1. (* %filename% -- main program *)
  2. (* Created %date% %time% by AppMaker *)
  3.  
  4. MODULE M%appname%;
  5.  
  6. FROM Object IMPORT
  7.     GENERATE;
  8. FROM UMacAppUtilities IMPORT
  9.     gConfiguration,
  10.     InitToolBox, ValidateConfiguration;
  11. FROM UFailure IMPORT
  12.     FailNIL;
  13. FROM UMacApp IMPORT
  14.     phUnsupportedConfiguration,
  15.     InitUMacApp,
  16.     StdAlert;
  17. FROM UPrinting IMPORT
  18.     InitUPrinting;
  19. FROM UTEView IMPORT
  20.     InitUTEView;
  21. FROM UGridView IMPORT
  22.     InitUGridView;
  23. FROM UDialog IMPORT
  24.     InitUDialog;
  25. FROM U%appname% IMPORT
  26.     T%Appname%App;
  27.  
  28. VAR
  29.     g%Appname%App:%    %T%Appname%App;
  30.  
  31. (*SEG Main*)
  32. (*----------*)
  33. BEGIN
  34.     InitToolBox;
  35.     IF ValidateConfiguration (gConfiguration) THEN
  36.         InitUMacApp (10);    (* number of calls to MoreMasters *)
  37.         InitUPrinting;
  38.         InitUTEView;
  39.         InitUGridView;
  40.         InitUDialog;
  41.         
  42.         GEN (g%Appname%App);
  43.         FailNIL (g%Appname%App);
  44.         g%Appname%App.I%Appname%App;
  45.         g%Appname%App.Run;
  46.     ELSE
  47.         StdAlert (phUnsupportedConfiguration);
  48.     END(*IF*);
  49. END M%appname%.
  50.